100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0:C=0
101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
102 PRINT"[159]                                        [146]";
103 PRINT"                                        [146]";
104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
105 PRINT"[159]                                        [146]";
106 PRINT"                                        [146]";
107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
108 PRINT"[159]                                        [146]";
109 PRINT"                                        [146]";
110 PRINT"               LIE  -  LAY              [146]";
111 PRINT"[159]                                        [146]";
112 PRINT"[159]                                        [146]":GOSUB235
150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
152 INPUT N$
154 IF N$=""THEN152
156 GOSUB590
158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
162 [139]R$[178]"Y"[167][137]400
163 [139]R$[178]"(null)"[167][137]400
190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
192 [137]1000
235 [141]591:[141]560
236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
237 [161]U$:[139]U$[179][177][199](32)[167]237
238 [142]
240 [141]592:[141]560
242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
244 [161]U$:[139]U$[179][177][199](32)[167]244
246 [153]"ON                                       "
248 [142]
299 :
400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
406 [153]" (null)OUR TASK IS TO SELECT FORMS OF
408 PRINT" [158]LIE OR [158]LAY IN A FEW SENTENCES.
414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT SOME HINTS."
418 [141]235:[137]600
499 :
500 [143] <YES>
505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO>
535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP>
565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
570 [151]54296,7:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
585 [151]54296,0:[142]
590 [129]TM[178]1[164]500:[130]:[142]
591 [129]TM[178]1[164]1000:[130]:[142]
592 [129]TM[178]1[164]2000:[130]:[142]
593 [129]TM[178]1[164]3000:[130]:[142]
600 [153]"LOAD       (null)OME LEN(null)(null)VAL(null).......
605 PRINT"[159] [212]HE WORDS [158]LIE[159] AND [158]LAY[159] ARE EASY TO       USE."
610 PRINT"[153]         **** [210][197][205][197][205][194][197][210] ****
620 [153]" SYS(null)IEOPEN (LIE, LAY, LAIN) MEANS TO           LIE DOWN.
630 PRINT" [158][204]AY[159] (LAY, LAID, LAID) MEANS TO          PUT SOMETHING DOWN."
690 GOSUB235
695 GOTO190
999 :
1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
1005 P=1:C=15:H=0
1010 FORJ=1TOC
1015 READA$,B$,C$,D$
1020 PRINT"[152][147] [197][196]-48 [197]X-10 [156]"TAB(14)""N$,TAB(29)"[155][211]TEP:"P""
1025 PRINT""
1030 PRINT"[158]>>> [159]";A$;"
1035 [153]"    (null)ELECT THE CORRECT WORD FOR THIS        SENTENCE.
1037 PRINT"            "B$
1038 PRINT"            "C$
1040 GOSUB560:INPUT"[158]>>>> ";SK$
1045 IFSK$=D$THEN1090
1050 PRINT"[150]                  [206][207]                    [159]":GOSUB530:GOSUB591
1055 PRINT"[150] [212]HE ANSWER IS [158]"D$:H=H+1:GOSUB560:GOSUB560:GOSUB591
1070 GOSUB240:GOTO1095
1090 PRINT"                   [217][197][211]!                 [159][146]":GOSUB500:GOSUB591
1095 P=P+1:NEXT J
1999 :
2000 PRINT"[159][147][217]OU HAVE NOW COMPLETED [197]XERCISE 10.":GOSUB560:GOSUB591
2005 PRINT"[153][217]OU HAVE ANSWERED"C"QUESTIONS":GOSUB591
2007 IFH=0THEN2020
2010 IF H=1THENPRINT"[150][217]OU MADE ONLY ONE BLOOPER.":GOSUB530:GOTO2025
2012 PRINT"[150][217]OU MADE"H"BLOOPERS.":GOSUB530:GOTO2030
2020 IFH=0THENPRINT"[158]                [197][216][195][197][204][204][197][206][212]!              [146]":GOTO2035
2025 IFH=1THENPRINT"[159]              [199]OOD [215]ORK!                [146]":GOTO2035
2030 PRINT"[150]       [212]RY HARDER!  [196]O IT AGAIN!        [146]"
2035 PRINT"":GOSUB235
2050 PRINT"[153][147][217]OU HAVE A CHOICE:
2052 [153]"(null)RESS  (null) WAIT TO REPEAT VALXERCISE 10
2054 PRINT"[208]RESS  [199] [146] TO GO TO [197]XERCISE 11
2056 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
2060 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"G"ANDR$<>"[199]"ANDR$<>"M"ANDR$<>"[205]"THEN2060
2062 IFR$="R"THENRESTORE:GOTO100
2064 IFR$="[210]"THENRESTORE:GOTO100
2066 IFR$="G"THENRESTORE:GOTO2080
2068 IFR$="[199]"THENRESTORE:GOTO2080
2070 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
2072 [147]"MENU",8
2074 [138]
2076 [128]
2080 [153]"LOAD (null)OADING VALXERCISE 11
2082 LOAD"EXERCISE 11",8
2084 RUN
2086 END
2099 :
2100 REM THE GUTS OF THE UNIT
2110 DATA"[212]HE ROCK HAS [158]....[159] ON THE OCEAN          FLOOR FOR CENTURIES."
2112 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
2115 DATA"[212]HE DOG [158]....[159] THE BONE IN THE            HOLE IT HAD JUST DUG."
2117 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
2120 DATA"[194]ETTY WAS TIRED AND [158]....[159] DOWN ON        HER BED."
2122 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
2125 DATA"[215]HERE COULD [201] HAVE [158]....[159] THE             TICKETS FOR THE DANCE?"
2127 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
2130 DATA"[158]....[159] THE BOOKS ON THE TABLE,           PLEASE."
2132 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","[204]AY"
2135 DATA"[194]ILL HAD [158]....[159] ON THE COUCH FOR          THREE HOURS BEFORE DINNER."
2137 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
2140 DATA"[193]DAM [158]....[159] HIS TRUMPET ON THE            DINING ROOM TABLE."
2142 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
2145 DATA"[201]'M GOING TO [158]....[159] DOWN FOR A            WHILE BECAUSE [201]'M TIRED."
2147 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LIE"
2150 DATA"[196]ID YOU [158]....[159] HAT ON THE STOVE?"
2152 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
2155 DATA"[211]HE HAS [158]....[159] IN BED FOR TWO DAYS."
2157 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
2160 DATA"[199]EORGE [158]....[159] THE PILLOW ON THE           BED."
2162 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
2165 DATA"[212]HE SNOW [158]....[159] COOL AND CRISP AND        EVEN."
2167 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
2170 DATA"[212]HE GOOSE [158]....[159] A LARGE EGG."
2172 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
2175 DATA"[196]ON'T [158]....[159] ON THE FLOOR!"
2177 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LIE"
2180 DATA"[212]HEY [158]....[159] ON THE BEACH AND GOT          NICE TANS."
2182 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
2199 :
3000 REM WH CUMBERLAND 93:04:20